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OPERATION  LOGICS 


PROGRAM  LANGUAGE,  AND  COMPUTER  SYSTEM 


Sensitivity  analysis  of  aircraft  parameters  on  functional  pavement 
design  Is  the  primary  goal  of  the  MIX^PAV  program  at  the  Transportation 
Computer  Center  (TCC)  in  Washington,  D.C.  The  program  is  an  integrated 
system  for  the  functional  design  of  airport  pavements.  The  Integrated 
programs  are  data  Independent,  based  on  defined  mathematical  models  and 
operational  logic. 

The  model  parameters,  operational  details  and  values  to  be  processed, 
form  a  set  of  input  data  which  is  defined  through  the  use  of  natural 
language  heading  statements  and  requires  no  programming  experience  on  the 
part  of  the  user.  For  the  operational  program  at  TCC,  the  input  data  is 
divided  into  job  and  universal  default  inputs.  The  job  inputs  consists 
of  only  the  aircraft  data.  The  default  system  contains  all  of  the  data, 
independent  of  the  aircraft  data. 

The  primary  subsystem  is  the  PAVDES  subsystem  from  the  PAVBEN 
operational  program  at  TCC.  The  primary  output  from  the  PAVDES  subsystem 
Is  the  thickness  design  of  pavements  of  various  compositions.  In  the  PAVBEN 
operation  the  aircraft  data  is  in  the  universal  default  file  and  all  the 
associated  design  charts  are  in  the  computed  data  inputs.  For  MLGPAV 
operation,  the  aircraft  data  Is  In  the  job  input  file,  requiring  the  necessary 
design  charts  to  be  computed  for  every  execution. 

The  MLGPAV  program  is  operational  on  the  IBM  360/65  at  TCC.  The  pro¬ 
gram  is  written  in  the  high  level  language  FORTRAN  ly.  The  program  accepts 
input  in  the  form  of  cards  and  needs  several  temporary  files  on  auxiliary 
storage. 


FORMAT  OF  USER'S  INPUT 


The  program  accepts  Input  in  the  form  of  80  character  cards.  The 
input  cards  are  divided  into  two  types:  program  control  cards  and  cards 
in  data  groups.  The  control  cards  specify  the  program  sections  to  be 
executed.  The  data  groups  provide  the  actual  data  values  for  program 
processing.  Unless  otherwise  specified,  each  card  is  logically  divided 
into  eight  fields  of  ten  characters  each.  Each  control  card  has  a  single 
keyword  in  field  on  which  identifies  itself  both  to  the  program  and  the 
user  as  a  control  card.  Additional  fields  on  a  control  card  are  used  to 
provide  related  information. 

Logically  related  input  cards  are  placed  together  in  data  groups. 

The  first  card  or  cards  are  descriptive  heading  cards.  The  number  of  head¬ 
ing  cards  is  fixed  and  the  user  should  not  add  or  delete  any  heading  card. 
One  of  the  heading  cards  is  usually  a  field  identifier  card.  On  this  card, 
each  field  has  an  acronym  which  identifies  the  data  values  on  subsequent 
cards  in  that  field.  For  more  detail  description,  the  particular  field 
identifier  can  be  found  in  the  dictionary.  Following  the  heading  cards 
are  the  cards  containing  the  actual  data  values  corresponding  to  the 
field  identifier.  The  order  of  cards  in  the  group  is  important.  The 
last  card  of  data  group  is  a  dellmitor  card  containing,  *  *  in  columns  1 
and  2. 


Values  in  a  field  have  three  definitions:  Integer,  floating  point 
or  alphanumeric.  They  are  expressed  respectively  by  blanks  and  numbers, 

0  to  9;  blanks,  the  minus  or  plus  sign*  decimal  point  and  the  numbers  0  to  9; 
and  all  characters.  Certain  fields  have  only  specific  values  allowable.  Un¬ 
less  otherwise  specified  all  values  should  be  left  justified  in  a  field.  This 
is  especially  important  for  alphanumeric  fields.  Blanks  in  floating  point 
fields  are  Interpreted  as  zeros.  If  a  decimal  point  is  omitted  in  a  floating 
point  field,  the  decimal  is  assumed  to  be  after  the  rightmost  column  in  that 
field.  Certain  field  has  subfields.  The  subfields  are  separated  by 
slashes,  / .  The  slash  must  appear  in  the  exact  column,  as  specified.  To 
ensure  proper  recognization  of  the  control  cards  and  the  data  groups,  the 
spelling  and  the  spacing  of  the  control  keywords  and  heading  descriptions 
must  be  correct. 


JOB  INPUTS 


JOB  CARD 

1 

JOB 

Starting  from 

column  11  ir  a  70-character  space  for  job  name.  1 

Usually  SENSITIVITY  ANALYSIS  OF  AIRCRAFT  and  9-letter  air-  1 

craft  code.  1 

AIRCRAFT  DATA  GROUP 

FIELD 

IDENTIFIER 

DESCRIPTION 

1 

AIRCRAFT 

defines  index,  1  to  20 

2 

CODE 

defines  9  char.  AIRCRAFT  code 

3 

MTOW 

max.  take-off  weight,  lbs. 

4 

MLRW 

max.  landing  roll  weight,  lbs. 

5 

OEW 

operational  empty  weight,  lbs. 

6 

RANGE 

range  of  aircraft,  XLONG,  LONG,  MEDIUM,  or  SHORT 

1 

BLANK 

2 

BLANK 

3 

MLG 

main  landing  gear  weight  as  fraction  of  MTOW 

4 

WGT 

single  wheel  weight  as  fraction  of  MTOW 

5 

PSI 

tire  pressure,  psi 

6 

FREQ 

natural  frequency  of  rubber  tire,  Hz 

7 

NWHEEL 

number  of  wheels  of  MLGS 

8 

XMAX 

distance  between  outer  wheels.  Inches 

1 
2 

3 

4 

5 

6 

7 

8 

1  BLANK 

2  BLANK 

3  WHEEL 

4  Y-COORD 

5 

6 

7 

8 


NWHEEL  longitudinal  coordinates 

number  of  cards  is  the  integer  of  (NWHEEL-l)/6  plus  1. 


BLANK 

BLANK 

WHEEL  NWHEEL  transverse  coordinates 

X-COORD  niimber  of  cards  is  the  integer  of  (NWHEEL-l)/6  plus  1. 
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LISTING  OF  DEFAULT  INPUTS 


PROGRAM  CONTROL  CARDS 

The  user  controls  the  data  processing  by  means  of  card  Inputs.  All 
MLGPAV  control  cards  have  two  portions  (1)  control  keyword  field  in 
columns  1  to  10  and  (2)  specification  field  or  fields  In  columns  11  to 
80  containing  values  or  additional  keywords  required  by  the  particular 
control  card  being  used.  There  are  six  control  keywords  which  have  been 
programmed  In  the  listing: 

1.  SITE  Starting  from  column  11  is  4-character  site  code. 

For  TCC  operation,  this  card  Is  in  the  default  system. 

2.  LINE  In  column  11  Is  a  single  digit  number  Indicates  the  lines 

skipped  by  the  operating  system  on  a  printed  page.  For 
TCC  operation,  this  card  Is  In  the  default  system. 

3.  USER  Starting  from  coltamn  11  is  a  1'2-character  user  name. 

4.  JOBCODE  Starting  from  column  11  are  7  characters  to  be  printed 

in  block  letter  on  title  page. 

5.  RUN  Field  2  Identifies  the  program  to  be  executed. 

6.  PRINT  There  are  2  allowable  keywords  in  field  2: 

DICTIONARY  -  prints  all  dictionary  items  in  sorted  groups. 
INPUT  -  prints  control  cards  and  job  Inputs. 


REGIONAL  COST  VALUES 

FIELD  IDENTIFIER 

1  COST 

2  CODE 

3  DATE 

4  REGION  CODE 

5  REGION  CODE 

6  REGION  CODE 

7  REGION  CODE 

8  REGION  CODE 

There  may  be  more  than  one  data  group.  Each  data  group  may  have  one  or 
more  regions.  The  region  code  Is  4  characters  long.  The  cost  values  of 
the  last  region  on  the  last  data  group  will  be  used  In  the  computations. 


FACILITY  TYPES 

FIELD  IDENTIFIER  DESCRIPTION 

1  TYPE  defines  Index  1  to  5 

2  FACILITY  defines  2  character  code 

3  FACILITY  defines  additional  2  character  code 

4  FACILITY  for  example,  the  first  two  characters 

5  FACILITY  of  RUNWAY  is  the  facility  type  code 

6  FACILITY 


DESCRIPTION 

defines  cost  Index  1  to  25 
defines  6  character  cost  code 
date  of  cost  values,  monuh/date/year 
cost  value  for  the  region  coded 
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BANDWIDTH  FOR  TRAFFIC  DISTRIBUTION 


FIELD  IDENTIFIER 
1  BANDWIDTH 

2+3  CODE 

4  RW 

5  TW 

6  SH 


DESCRIPTION 

defines  bandwidth  Index  1  to  5 
defines  12  character  BANDWIDTH  code 
bandwidth  In  feet 
bandwidth  In  feet 
bandwidth  In  feet 


DYNAMIC  INCREMENT  OF  AIRCRAFT  VIBRATION 


FIELD  IDENTIFIER 

1  DI 

2  RW 

3  TW 

4  SH 


DESCRIPTION 

facility  type  location,  keel  or  side 
dynamic  Increment,  In  g 
dynamic  Increment,  in  g 
dynamic  Increment,  In  g 


VELOCITY  OF  AIRCRAFT 


FIELD  IDENTIFIER 

1  VEL 

2  RW 

3  TW 

4  SH 


DESCRIPTION 

facility  type  location,  keel  or  side 
aircraft  velocity  in  knots 
aircraft  velocity  in  knots 
aircraft  velocity  in  knots 


FINANCIAL  COST  DATA 


FIELD  IDENTIFIER 

1  FINANCE 

2  AIRB 

3  ARCD 

4  ASCCC 

5  ASCMC 

6  NBL 

7  NSLP 


DESCRIPTION 

blank 

annual  interest  rate  of  bond 
annual  rate  of  cash  discount 
annual  escalation  rate  of  construction  cost 
annual  escalation  rate  of  maintenance  need 
maturity  of  revenue  band  In  years 
mortgage  payments  of  bond.  In  years 


DEMAND  FORECAST 


FIELD  IDENTIFIER 

1  FORECAST 

2  ADM 

3  ATD 


DESCRIPTION 
defines  6  char, 
defines  6  char, 
defines  6  char. 


FORECAST  Code 
ADM  code 
ATD  cr  Je 


PFLDI,  smoothness  of  pavement  surface 


FIELD  IDENTIFIER  DESCRIPTION 

1  col.  1-10  defines  DI  for  deflection  analysis 

2  Col.  11-50  defines  40  char,  smoothness  description 
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CIASS,  Identification  for  design  coefficients 


FIELD 

IDENTIFIER 

DESCRIPTION 

1 

CLASS 

defines  CLASS  index  1  to  20 

2 

CODE 

defines  6  char.  CLASS  code 

3 

OVSFKL 

overatress  factor  for  keel 

4 

OVSFSD 

overstress  factor  for  side 

5 

STRESS 

conversion  factor  from  E-value  to  tensile  stress 

6 

FATIST 

coef.  of  fatigue  stress 

7 

COVAR 

coef.  of  variance 

8 

A1 

coef.  of  transfer  function  (trans.  to  long  def.) 

1 

BLANK 

2 

BLANK 

3 

A2 

Qoef.  of  transfer  function  (trans.  to  long  def.) 

4 

D1 

coef.  of  transfer  function  (elastic  to  cumulative) 

5 

D2 

coef.  of  transfer  function  (elastic  to  cumulative) 

6 

DC 

coef.  of  contact  rigidity 

LAYER, 

Identification  for  default  E-value  and  Poisson's  Ratio 

FIELD 

IDENTIFIER 

DESCRIPTION 

1 

LAYER 

defines  LAYER  Index  1  to  25 

2 

CODE 

defines  6  char.  LAYER  code 

3 

EVALUE 

default  E-value  of  layer 

4 

POISSON 

default  Poisson  ratio  of  layer 

5 

MOD(S) 

mob.  and  demobilization  cost  for 

small  job 

6 

MOD(N) 

mob.  and  demobilization  cost  for 

normal  wo 

LAYER 

COST  DATA  GROUP 

FIELD 

IDENTIFIER 

DESCRIPTION 

1 

LAYER 

defines  LAYER  Index 

2 

PCBT 

coef.  for  computing  unit  price  of  the  layer 

3 

FIAGT 

4 

COAGT 

5 

ASCLT 

6 

HLBT 

7 

POZBT 

8 

SFST 

Continuation  Card 

1 

BLANK 

2 

IWFAT 

coef.  for  computing  unit  price  of  the  layer 

3 

RSWLB 

4 

LBBR 

5 

CLHR 

6 

SLEHR 

7 


PAVEMENT  DATA  GROUP 


FIELD  IDENTIFIER  DESCRIPTION 

1  PAVEMENT  defines  PAVEMENT  index  1  to  20 

2  CODE  defines  6  char.  PAVEMENT  code 

3  LAYER  defines  code  of  layer  composition 

4  THICKNESS  default  thickness  of  layer.  Inches 

5  EVALUE  if  blank,  use  default  E-value 

6  POISSON  If  blank,  use  default  polsson 

Last  card  In  each  defined  pavaaent  must  have  a  layer  code  of  SUB,  PAV  or 
PFLPAV.  SUB  defines  new  pavement  on  subgrade;  PAV  defines  overlay 
pavement  on  existing  pavement  which  Is  treated  as  one  layer;  PFLPAV  defines 
overlay  pavement  on  actual  existing  pavement. 


DESIGN  CHARTS  -  LAYER  THICKNESSES 


FIELD  IDENTIFIER 

1  ITERATE 

2  PAVEMENT 

3  LAYER 

4  HMIN 

5  HMAX 

6  HSTEP 


DESCRIPTION 

blank 

PAVEMENT  Index 
LAYER  code 

min.  thickness  of  design  chart,  Inches 
max.  thickness  of  design  chart.  Inches 
thickness  Increment  of  design  chart.  Inches 


NEW  PAVEMENT  ESUB  GRID  VALUES 
FIELD  DESCRIPTION 

1  to  8  subgrade  E-values  of  design  charts  for  new  pavement 

and  overlay  pavements  on  actual  existing  pavement. 
Continuation  card  also  has  same  format. 

number  of  cards  >■  the  Integer  of  (number  of  E-values  -l)/8  plus  1. 
max.  number  of  E-values  >20. 


CODES  OF  KEEL  AND  SIDE 


FIELD 

IDENTIFIER 

DESCRIPTION 

1 

PAVEMENT 

blank 

2 

NUMBER 

blank 

3 

KEEL 

defines  pavement 

Index 

for 

keel 

4 

SIDE 

defines  pavement 

index 

for 

side 
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EXISTING  PAVEMENT  DATA  GROUP 


FIELD  IDENTIFIER 

1  PFLPAV 

2  CODE 

3  LAYER 

4  THICKNESS 

5  EVALUE 

6  POISSON 
Each  PFLPAV  must  end 


DESCRIPTION 

defines  PFLPAV  Index,  1  to  20 
defines  6  char.  PFLPAV  code 
LAYER  code 

thickness  of  layer,  Inches 
If  blank,  default  value  Is  used 
If  blank,  default  value  Is  used 
with  a  LAYER  code  SUB. 


PFLPAV  ESUB  GRID  VALUES 

FIELD  DESCRIPTION 

1  to  8  subgrade  E-value  for  PFLPAV  deflection  and  stress 

chart. 

Continuation  card  also  has  same  format. 

number  of  cards  “  the  Integer  of  (number  of  E-values  -l)/8  plus  1. 
max.  number  of  E-values  =20. 


PFLPAV  DESIGN  CHARTS  CONTROL  GROUP  DATA 


FIELD  IDENTIFIER 

1  PFLPAV 

2  CLASS 

3  LAYER  FOR 

STR/MT 


DESCRIPTION 
PFLPAV  Index 

CLASS  code  for  design  coefficients 
LAYER  code  for  governing  stress  condition 


PFLPAV  IN  AIRCRAFT  EQUIVALENCY  FOR  PFL 


FIELD  IDENTIFIER 

1  CLASS 

2  PFLPAV  FOR 

AND/ANS 


DESCRIPTION 
CLASS  Index 

PFLPAV  Index 


PAVEMENT  IN  AIRCRAFT  EQUIVALENCY  FOR  THICKNESS  DESIGN 

FIELD  IDENTIFIER  DESCRIPTION 

1  CLASS  CLAS^  Index 

2  PAVEMENT  PAVEMENT  index 

3  PFLPAV  FOR 

AND/ANS  PFLPAV  Index,  (0  Indicates  subgrade) 

Both  PAVEMENT  and  PFLPAV  indexes  are  used  to  define  the  representative 
pavement  to  be  used  In  aircraft  equivalency  for  thickness  design. 
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St. 


DESIGN  CHARTS  FOR  LIMITING  DEFLECTION  AND  STRESS 


FIELD  IDENTIFIER 

1  PAVEMENT 

2  PFLPAV 

3  CLASS 

4  LAYER  FOR 

STR/MT 


DESCRIPTION 
PAVEMENT  Index 
PFLPAV  Index 
CLASS  code 

LAYER  code  for  governing  stress  condition. 


FACILITY  AND  STATION  IDENTIFICATIONS 
FIELD  IDENTIFIERS  DESCRIPTIONS 

1  FACILITY  defines  FACILITY  Index,  1  to  50 

2  CODE  defines  9  char.  FACILITY  code,  first  2  char. 

Identify  facility  type  code 

3  STA-FROM  min.  5  char,  station  code  In  hundreds  of  feet 

4  STA-TO  max.  5  char,  station  code  In  hundreds  of  feet 


STATISTICALLY  PROCESSED  NDT  GROUP  DATA 

FIELD  IDENTIFIERS  DESCRIPTIONS 

1  FACILITY  FACILITY  Index 

2  STA-FROM  min.  5  char,  station  code 

3  STA-TO  max.  5  char,  station  code 

4  SUMZ  blank 

5  EVALUE  NDT  E-value  from  NDT2  AREA-E,  psl 

6  DRAINAGE  DRAINAGE  code,  NORM  or  NET 

7  TEMP.  temperature 

8  PFLPAV  2  subfields,  PFLPAV  Index,  PFLPAV  code 

Max.  number  of  STA-FROM  and  STA-TO  Is  7. 


AVERAGE  DAILY  MOVEMENTS 

Heading  Card  1,  Columns  11  to  20  contain  the  6  char.  ADM  code. 

Heading  Card  2,  defines  aircraft  movements. 

FIELD  IDENTIFIER  DESCRIPTION 

1  AIRCRAFT  AIRCRAFT  Index 

2  year  previous  year's  traffic 

3  year  +  1  current  year's  traffic 

4  year  +6  5  year  ADM 

5  year  +  11  10  year  ADM 

6  year  +  16  15  year  ADM 

7  year  +  21  20  year  ADM 

All  aircraft  Indexes  must  appear.  If  aircraft  does  not  have  any  traffic 
than  leave  columns  under  the  years  blank. 


AIRPORT  TRAFFIC  DISTRIBUTION 

Heading  card  1,  columns  11  to  20  contain  the  6  char.  ATD  code. 

FIELD  IDENTIFIER  DESCRIPTION 

1  FACILITY  FACILITY  index 

2  STA-FROM  rain.  5  char,  station  code 

3  STA-TO  max.  5  char,  station  code 

4  YEAR  year  +  1  as  defined  in  ADM 

5  T0W%  percentage  of  take-off 

6  LRW%  percentage  of  landing  roll 

7  TDW%  percentage  of  touchdown 

YEAR  should  match  the  one  defined  in  ADM. 


GELS/NDT3  for  each  PFLPAV  in  design  charts  control  group  data. 

FIELD  DESCRIPTION 

1  number  of  thickness 

2  number  of  PFLPAV  E-values 

Continuation  card  or  cards 

1  to  8  surface  deflection  of  PFLPAV  under  a  single  wheel  having  tire 
pressure  =  200  psi  and  radius  9  inches 

number  of  cards  =  the  Integer  of  (number  of  E-values  -l)/8  plus  1 
Continuation  card  or  cards 

1  to  8  tensile  stress  in  the  governing  layer  under  the  same  single 
wheel  for  deflection. 

number  of  cards  =  the  integer  of  (nximber  of  E-values  -l)/8  plus  1 

PAVDES  PAVEMENT  DESIGN 

FIELD  IDENTIFIER  DESCRIPTION 

1  FACILITY  FACILITY  index 

2  SERVYR  service  year  in  5,  10,  15  or  20  years 

3  BANDWIDTH  BANDWIDTH  index 

4  FORECAST  FORECAST  code 

Controls  the  number  of  facilities  which  will  be  printed  when  the  PAVDES 
program  is  run.  Facility  number  may  be  repeated  to  get  several  different 
designs  for  the  same  facility. 
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DATE 


17:41:11  DEC  13,  1978 


1 

5ITP 

Tcr 

> 

1  TJr 

i 

3 

IISPR 

0.  VANG 

4 

■If  rtcrviF 

91  r.-PAv 

5 

l-DN 

r.ri  s 

FAMD 

RUN 

r.i  LS 

FAM 

7 

RUN 

gfls 

HOES 

4 

RUN 

PAVOES 

9 

PRINT 

INPUT 

10 

R  Fill  (INAL 

COST  VAIUFS 

11 

COST 

CP  OF 

DATr 

ACE 

17 

1 

PCPT 

11/09/78 

43.90 

13 

? 

F  I  AGT 

11/09/78 

4.91 

14 

3 

COAGT 

11/09/78 

5.35 

14 

4 

ASCIT 

11/09/78 

80.00 

1ft 

5 

HL  RT 

11/10/78 

75.00 

17 

6 

PP7RT 

ll/lC/78 

3.50 

1  fl 

7 

SF5T 

11/10/78 

3.00 

1  9 

8 

IWFAT 

11/10/78 

2.00 

70 

9 

RSWLR 

11/10/78 

.36 

71 

10 

LRPM 

11/05/78 

.368 

?Z 

11 

CL  HP 

11/02/78 

7.03 

73 

12 

SLFHR 

11/02/78 

10.07 

74 

«* 

?•> 

TVPF 

FACILITV 

FACILITY 

FACILITY 

FACILI TV 

FACILITY 

I 

RH 

RUNWAY 

7  / 

TH 

TAX (WAV 

XTW 

7  ft 

SO 

.»*) 

U) 

RANOWini 

H  cun':! 

r.nnF7 

RM 

TW 

SH 

31 

1 

NnP9/VI5UAL 

40. 

16. 

16. 

3? 

7 

L  ir.HTS/ILS 

20. 

10. 

16. 

1 

«* 

34 

01 

RV4 

TW 

SH 

15 

KFPL 

.1? 

.12 

.30 

36 

SlOE 

.  18 

.18 

.30 

37 

«« 

VFL 

RW 

TW 

SH 

4<» 

KF=l 

145. 

so. 

50. 

fto 

5  I  OF 

145. 

50. 

50. 

41 

«« 

«»7 

FlNANf.F 

A  IRS 

ARCO 

ASCCC 

ASCMC 

NBL 

NSLP 

43 

.08 

.13 

.09 

.02 

30. 

20. 

44 

4* 

45 

FPRFr AST 

ADM 

ATD 

4(> 

FAMSl/r, 

A0M5IIG 

ATOSUG 

47 

48 

pf  n  I 

4V 

.1? 

SHPOTH  PAVEMFNT  SIIRFACF 

5  0 

.18 

nPFRATIONAL  SURFACF 

51 

.75 

UPPER  LINIT  OF  ROUGHNFSS  TOLERANCF 

5? 

.30 

MAJPF  PFHABILITATION  PEOUIRFO 

53 

54 

CLASS 

r.POE 

nvSFKL 

nVSFSO 

STRESS 

FATIST 

rOVAR 

A1 

5  5 

A? 

01 

02 

DC 

5ft 

1 

AC, /NOR 

.9 

1.2 

.65 

.086 

.12 

2.30 

57 

.0173 

.46 

2.00 

1.00 

«>n 

7 

AC /Frill 

.9 

1.2 

.65 

.U86 

.12 

1 

o 

• 

.0170 

.46 

2.30 

1.00 

ft  .3 

rr/f.Tn 

1.0 

1.3333 

.43 

.  082 

.10 

2.95 

ftl 

.0104 

.61 

2.00 

.62 

ft? 

4 

cr/AC8 

1.0 

1.3333 

.40 

.082 

.10 

2.95 

A3 

.0104 

.61 

2.00 

.62 

64 

5 

ir.F 

1.0 

1.3333 

.38 

.092 

.1$ 

2.80 

.0125 

.54 

2.00 

.90 

6ft 

«« 
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67 

1  4V"R 

f.nn?= 

F.VAL3IF 

6  5 

1 

A  5T9P 

7030 30. 

a*/ 

2 

Lf  F4 

1103300. 

tj 

3 

1  CF8 

600033. 

71 

4 

LCFC 

4)0000. 

7? 

5 

SUP 

8030. 

71 

6 

PAV 

60000. 

74 

7 

PCfP 

5000000. 

75 

8 

PCf 

4000000. 

76 

<> 

Rt  r. 

1503300, 

77 

10 

CTO 

200000. 

78 

11 

ISPS 

150000. 

79 

12 

4ST5 

60000. 

80 

13 

&GPS 

40300. 

81 

14 

SSPS 

20000. 

82 

15 

LTS!)P 

15000. 

83 

16 

Fxpcnw 

4500000. 

84 

17 

Fxprnv 

Ifionort. 

85 

l« 

expf 

30U9UOO. 

('6 

19 

FXAC 

140000. 

3  7 

20 

sxnsr 

30003. 

21 

EXPSA 

50003. 

89 

22 

PFLPAV 

60003. 

9  0 

11 

L6VPB 

Pf  RT 

FI  ACT 

92 

IWFA7 

RSML" 

93 

I 

.0102 

0«5 

2 

.0102 

9A 

97 

3 

.0132 

98 

99 

4 

.0132 

MO 

101 

5 

.310? 

10’ 

105 

6 

.013? 

134 

10  5 

7 

.013? 

106 

1  37 

8 

.010? 

108 

109 

9 

.010? 

113 

III 

10 

.010? 

112 

113 

11 

.013? 

114 

11  5 

12 

.010? 

116 

117 

1? 

.013? 

11  P 

119 

14 

.010? 

120 

121 

15 

.313? 

122 

123 

It 

.010? 

124 

125 

17 

.010? 

126 

127 

1" 

.010? 

12" 

129 

19 

.010? 

1  30 

i  3| 

20 

.0107 

:  32 

1 3  3 

21 

.013? 

j  14 

1 35 

>7 

.313? 

1  36 

1  37 

«« 

POIfi'^ON  MdPiS* 

.0329  .3316 

_  _  .  3364  _ .3319 

‘  .0351  .3315 

.0351  .3315 

.0339  .j335 

.0009  .3335 

.3065  .3332 

_ _ .0354 _ .302  2 

.3045  .0022' 

.0058  .3319 

.0026  '  .3314 

.0020  .  .3011 

.0017  .00.0 

_ .0015 _ ^.j008 

'.0028  .0015 

•0 

.0  •  o 

.0  .3 

.3  .3 

_ .0 _ .p 

.  0  '  .  '3 

.0009  .3005 

CCUCT  ASCLT  HL8T  P028T  SF5T 

LBBii  CLHR  SLEHR 


13B 

n<> 

140 

!4) 

142 

143 
1«4 
14b 

146 

147 
14fl 
I'.S 

140 

141 
147 

143 

144 

145 
)40 
147 
I4H 
14«) 
160 
161 
16? 

163 
lb4 
165 
16.4 
167 
I6fl 
160 

170 

171 
17? 

173 

174 
174 
176 
17? 
17H 
170 
140 
111! 
IH? 
1H» 

164 
105 

146 

147 
ixa 
in<i 
140 
101 
10? 

103 

104 

105 


PAVEMENT 

CODE 

LAVER 

THICKNESS 

E VALUE 

P3lSSnM 

1 

AC /NOR 

ASTOP 

2. 

ASPS 

16. 

AGES 

6. 

? 

AC/4nu 

sun 

ASTPP 

2. 

100000. 

ASRS 

20. 

85000. 

AGP$ 

SliH 

8. 

3 

cc/ctr 

PCC 

12. 

■  CTO 

6. 

SUB 

4 

CC/AGR 

PCC 

14. 

AGAS 

ft. 

SSBS 

SUP 

8. 

4 

LCF 

ASTOP 

4. 

LCFA 

6. 

.  LCFB 

s« 

LCFC 

SUP 

8. 

ITFI^ATE 

PAVEMENT 

LAVER  ■  ‘ 

HMIN  ■ 

MMAX— 

~HSTEP 

I 

ASOS 

4. 

37. 

3. 

? 

ASBS 

4. 

37, 

3. 

3 

PCC 

8. 

19. 

1. 

4 

PTC 

B* 

19. 

X. 

4 

LCFA 

2. 

1A.5 

1.5 

NEW  PAVEMENT  FSUA 

GRID  EVALUES 

3000* 

«• 

5000. 

9000. 

15000. 

21000. 

35000. 

pavement 

NIIMPER 

KEEL 

SlOE 

1 

1 

? 

2 

3 

3 

4 

4 

5 

5 

«* 

PFLPAV 

tnoE 

LAVER 

THICRNE.SS 

EVALUE 

1 

ACL 

EX  AC 

3. 

EXBSA 

6. 

41JB 

«<* 

pFL7Atf  Es<m  r.Rin  evalues 

?>03.  3  303»  _  4000»  6000.  8000. _ 12000. _  16000.  25000* 

34.100.  45000.  ‘  7,3000.  100000. 

«• 

PHOAV  CLASS  LAVE*  FOR  STR/MT 

1  AC /NOR  EX ASA 

«« 

Cl  ASS  RFLRAV  FOR  AND/ANS 

1  I  .  * 

«4 

CLASS  PAVEMFNT  FFLPAV  FOR  ANO/ANS 

1  1  0 

2  ?.  0 

3  3  0 


196 

4 

4 

0 

197 

5 

4 

0 

ISI* 

1'»9 

pavement 

PFIPAV 

Cl  ASS 

1  AVER  FOR  STE/MT 

?ill) 

1 

0 

AC/NOft 

ASAS 

?in 

2 

0 

AC/snu 

ASPS 

?)? 

J 

a 

CC/tTR 

FCC 

201 

4 

9 

CC/AGR 

FCC 

204 

5 

•» 

LfF 

LCFC 

?J5 

** 

1« 


i 


70f> 

FACIllTV 

AMO  STATION  1DEUTIF1CATII7NS 

r-_—  -  —  .  -  -  - 

?0  7 

FACILITY 

f.POE 

STA-FRn« 

STA-TO 

?)fl 

1 

«W  5  ' 

000.3 

090.0 

7n<J 

2 

RW  15 

000.0 

090.0 

710 

3 

RW  35 

000.0 

090.0 

?ll 

4 

TH  5 

3C0.0 

090.0 

71  2 

5 

TH  15 

000.0 

090.0 

71  S 

6 

TW  35 

000.0 

090.0 

714 

7 

SH  5 

oco.o 

090.0 

715 

R 

SH  15 

000.0 

090.0 

716 

<> 

SH  35 

000.0 

090.0 

71  / 

71fl 

STATISTICALLY  paPCSSSED  NOT 

GROUP  DATA 

aio 

FACILITY 

STA-FRfH 

STA-TO 

SUHZ 

EVALUE 

DRAINAGE 

TEMP.  ■ 

PFLPAV 

77J 

1 

000.0 

030.0 

5000. 

NORM 

0/sUB 

271 

0'»0.0 

060.0 

5000. 

NURM 

O/SUB 

22? 

060.0 

090.0 

5000. 

NORM 

0/SlJR 

771 

7 

000.0 

030.0 

15000. 

NORM 

O/SUB 

274 

030.0 

060.0 

15000. 

NORM 

O/SUB 

77  5 

060.0 

090.0 

15000. 

NORM 

O/SUB 

77q 

3 

003.0 

030.0 

35000. 

NORM 

O/SUB 

777 

030.0 

060.0 

35000. 

NORM 

0/SUfl 

?7h 

060.0 

090.0 

35000. 

NORM 

O/SOB 

??<J 

4 

000.0 

030.0 

5000. 

NORM 

O/SOB 

2J0 

O’O.O 

060.0 

5000. 

NORM 

O/SUB 

771 

060.0 

090.0 

5000. 

NORM 

O/SUB 

777 

5 

000.0 

03  3.0 

ISOOO. 

NORM 

O/SUB 

23  7 

030.0 

060.0 

15000. 

NORM 

O/SUB 

274 

060.0 

090.0 

15000. 

NORM 

O/SUB 

775 

6 

000.0 

030.0 

35000. 

NORM 

0/SUfl 

736 

030.0 

060.0 

35000. 

NORM 

O/SUB 

277 

060.0 

090.0 

35000. 

NORM 

O/SUB  . 

77H 

7 

000.0 

030.0  ■ 

5000. 

NORM 

O/SUB 

77<) 

030.0 

060.0 

5000. 

NORM 

O/SOB 

740 

060.0 

090.0 

5000. 

NORM 

O/SOB 

741 

R 

000.0 

030.0 

15000. 

NORM 

O/SOB 

24  7 

030.0 

060.0 

15000. 

NORM 

O/SUB 

74  7 

060.0 

090.0 

15000. 

NORM  ■ 

O/SUB 

744 

0 

030.  0 

030.0 

35000. 

NORM 

O/SOB  ^  • 

74  5 

O’O.O 

060.0 

35000. 

NORM 

O/SOB 

746 

060.0 

090.0 

35000. 

NORM 

O/SOB 

747 

** 

740 

AOM 

AOMStir. 

AVERAGE 

gaily  MOVEMENTS.  SUGCcSTEO 

?4<» 

►UIM3ER  OF 

AIRCRAFT 

MOVEMENTS 

,  750 

AIPCPAFf 

1977 

1978 

19B3 

1988 

1993  ~ 

1998 

i  251 

I 

15. 

15. 

20. 

25. 

33. 

35. 

'  757 

«« 

■  25  7 

ATO 

ATPSIIG 

AIRPCRT 

TRAFFIC  distribution. 

SJGGESTEO 

754 

FACILITY 

STA-FRCM 

STA-TO 

YEAR 

TOM* 

LRnR 

TOW* 

75  5 

1 

000.0 

030.0 

197B 

1000. 

1300. 

1000. 

256 

'  O’O.O 

060.0 

'  1978'  ■  ~ 

100. 

uo,  ■■  ' 

130.  ~ 

257 

060.0 

090.0 

1978 

10. 

1^. 

10. 

25rt 

2 

300.0 

030.0 

1978 

1000. 

1300.  ■ 

1000. 

25<J 

030.0 

060.0 

1978 

100. 

130. 

100. 

760 

060.0  ' 

090.0 

1978 

10. 

10. 

10. 

?Al 

3 

000.0 

030.0 

1978 

1300. 

1033. 

1000. 

767 

030.0 

060.0 

1978 

100, 

U  J  • 

lOU. 

. 

.V.7 

06(1.0 

099.  0 

1978 

1  0. 

1^. 

13. 

4 

oor.o 

030.0 

1973 

nn. 

1030. 

;  ''  5 

O’O.O 

060.3 

1978 

130. 

103. 

766 

060.0 

090.0 

1978 

13. 

1^. 

76  7 

5 

000.0 

030.0 

1978 

1000. 

1003. 

1  ?4M 

030.0 

060.0 

1978 

lOU. 

103. 

760 

060.0 

090.0 

1978 

10. 

13. 

!  77.1 

A 

000. 0 

030.0 

1978 

1000. 

1300. 

771 

030.0 

060.0 

1978 

100. 

190. 

777 

060.0 

090.0 

1970 

10. 

10. 

i 


?7J 

7 

000.  a 

030.0 

1978 

1. 

.^74 

030.0  ' 

060.0 

1978 

.1 

77S 

063.0 

090.0 

1978 

.31 

?  Ih 

A 

000,0 

030.0 

1978 

1. 

711 

030.0 

060.  0 

1978 

.1 

71A 

OAO.O 

090.0 

1978 

•  ^  1 

?Ti 

0 

000.0 

030.0 

1978 

1.  _ 

1*0 

030.0 

060.0 

1978 

'.  1 

?ni 

360.0 

090.0 

1978 

.31 

?H7 

«* 

CFLS 

NnT3 

?H4 

1 

1? 

rrtS 

0.*e*?RA 

0.367139 

0.331377 

0.223033 

0.187158 

0.1*2052 

0.117210 

7*h 

n.071A7A 

0.067170 

0.0*9*77 

0.0*2216 

7*1 

379. OOA 

779.61* 

2*3. Ad6 

19*. 09* 

159.736 

113.800 

83.7*6 

*2.653 

?(«a 

1A.A47 

0.6*0 

-21.661 

-3*. 5*5 

?ns 

** 

i"^n 

PAVOES 

pavfaewt 

DESIGN 

7‘n 

FAf.II.  tTV 

3FfiVVA 

AANOWlOTH 

FCRECA9T 

7't7 

] 

70 

7 

FAMSUG 

7 

70 

7 

F  AM  9  (IS 

7'ti, 

3 

70 

2 

FAM9UG 

?<»5 

i 

70 

1 

FAMSUG 

7'it^ 

7 

70 

1 

fahsug 

7'41 

3 

70 

1 

FAMSUG 

7'i* 

* 

70 

1  ■  ■ 

F  AMSUG 

70  <J 

5 

70 

1 

FAMSUG 

300 

A 

70 

1 

FAMSUG 

301 

7 

70 

1 

FAMSUG 

.3(1? 

A 

70 

1 

FAMSUG 

303 

4 

70 

1 

famsug 

30* 

•• . 
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DESCRIPTION  OF  SYSTEM  OUTPUTS 


TITLE  PAGE  Print  the  name  of  user,  MLG-PAV,  job  name  and  TCC  site.  The 
top  and  bottom  margin  of  title  page  is  2  and  1  inch  respectively. 

PRINT /INPUT  Head  card  of  input  data  groups 

1.  Listing  of  Default  Inputs 

2.  Aircraft  Data  Group 

GELS/FAMD  For  aircraft  1;  with  weight,  MTOW;  pavements  AC/NOR,  AC/SOU, 
CC/CTB,  CC/AGB,  LCF;  all  wheels  and  1  wheel;  prints  the  maximum  horizontal 
stress  at  the  bottom  of  each  pavement  layer,  and  the  surface  deflection  at 
wheel  0. ,  0. 

GELS/FAM  Same  as  GELS/FAMD  except  all  weights,  MTOW,  MLRW,  MTDW. 

Under  the  MWFPRT  page  counter,  a  table  of  stresses  at  the  critical  layer 
and  the  surface  deflection  for  all  pavements  is  printed.  GELS/FAMD  and 
GELS/FAM  are  used  to  get  a  single  equivalent  operation  of  aircraft  1,  weight 
MTOW. 

GELS/HDES  For  aircraft  1;  weight  MTOW;  pavements  AC/NOR,  AC/SOU,  CC/CTB, 
CC/AGB,  LCF;  different  thicknesses  of  design  layer;  different  E-VALUE  of 
subgrade  support;  all  wheels  and  one  wheel;  prints  the  maximum  horizontal 
stress  at  the  bottom  of  each  pavement  layer  and  the  surface  deflection  at 
wheel  0.,  0.  Under  the  MWPRT  page  counter,  a  table  of  stresses  at  the 
critical  layer  and  the  surface  deflection  for  all  pavements  is  printed. 

RUN/PAVDES 

1.  Under  ATM  page  counter,  listing  of  aircraft  movements  which  is  equal  to 
the  product  of  average  daily  movements  and  airport  distribution  for 
each  facility  segment  durlniH  the  20  year  design  service  life.  ATM  for 
RW  and  TW  stations  0.  -  30.,  30.  -  60.,  and  60.  -  90.  is  1823000., 

182500.  and  18250.  respectively.  ATM  for  SH  stations  0.  -  30., 

30.  -  60.,  and  60.  -  90.  are  1825.,  182.5  and  18.25  respectively. 

2.  Under  the  OPWPT  page  counter,  lists  the  MTOW,  MLRW  and  MTDW  for  air¬ 
craft  1. 

3.  Under  the  AND/ANS  page  counter,  equivalent  single  type  aircraft  operation 
will  be  listed  for  each  pavement  and  facility.  For  each  pavement  only 
the  first  two  facility  segments  are  printed. 

4.  Under  the  CED  page  counter  for  each  pavement,  the  computed  engineering 
data  relating  to  aircraft  load  repetition.  E-value  of  subgrade,  de¬ 
flection  and  stress  limits,  and  thickness  analysis  for  two  drainage 

and  three  traffic  conditions  are  tabulated.  There  are  five  new  pavements 
AC/NOR,  AC/SOU,  CC/CTB,  CC/AGB  and  LCF.  For  each  new  pavement  there  are 
three  RW,  three  TW  and  three  SH  facilities  having  respective  E-value  of 
subgrade.  Under  the  NORM  drainage  condition,  the  associated  ESUB  NORM 
values  are  5000.,  15000.,  and  35000.  psl.  The  corresponding  ESUB  WET 
values  are  3000.,  9000.,  and  21000.  psl  respectlvelj'. 
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5.  Under  the  PAV  page  counter,  the  pavement  data  relating  to  functional 
requirements  and  governing  condition  of  design  are  tabulated,  similar 
to  the  CED  listing. 


ERROR  MESSAGES  AND  DIAGNOSTICS 
The  Input  goes  through  two  stages  of  processing: 

1.  Identification  stage  In  which  the  Input  data  group  or  control  card 
must  be  recognized.  If  It  Is  not,  then,  an  error  message  Is  printed. 
All  cards  are  printed  and  the  error  Is  temporarily  Ignored  \mtll  the 
next  dellfflltor  **  Is  encountered.  If  a  control  card  Is  mlspelled,  the 
next  data  group  will  be  flagged  In  error  yet  the  program  will  assume 
as  If  the  last  card  of  a  data  group  Is  In  error. 

2.  Data  verification  In  which  the  program  prints  a  limited  number  of 
self-explantory  error  messages.  FORTRAN  will  print  messages  If  the 
characters  do  not  match  the  field,  such  as  t3rpe  of  Integer  or  floating 
point.  FORTRAN  will  also  print  execution  error  messages,  such  as 
mlspunched.  Incorrect  or  missing  data. 

Error  messages  printed  In  the  system  log  at  the  beginning  of  each  Job 
listing  can  be  refered  to  the  OS  360  Manual.  These  messages  help  Identify 
whether  the  program,  JCL  or  hardware  caused  the  error. 
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APPENDIX  1 


OS  360  JOB  CONTROL  CARDS  FOR  OPERATION  AT  TCC 


Tlie  program  set-ups  consist  of  a  single  procedure,  MLGPAV.  The 
procedure  may  be  stored  on  a  permanent  data  set  and  referenced  through 
use  of  the  PROCLIB  DD  card.  If  not  stored,  then  an  instream  procedure  on 
cards  is  necessary.  The  following  is  the  deck  necessary  for  executing  the 
MLGPAV  program  at  TCC: 

//JOBNAME  JOB 

Instream  procedure  or  //PROCLIB  DD 
//  EXEC  MLGPAV,  TIME.MLGPAV=150 
//MLGPAV. INPUT  DD  * 

Job  card 

Aircraft  data  group 
/* 


The  procedures  assume  the  load  module  data  set,  DYIM  and  the  default 
input  data  set,  DYDT  are  on  a  single  removable  3330  disk  pack  D0012.  Several 
temporary  data  sets,  as  required,  are  allocated  on  any  2  available  scratch 
packs.  The  temporary  data  sets  may  be  placed  on  the  pack,  D00012,  but  the 
wall  clock  execution  time  will  Increase  due  to  arm  contention. 


JOB  CONTROL  CARDS 

//MLGPAV  PROC  - 

//MLGPAV  EXEC  PGM*60L,REGI0N»290K 
//STEPLIB  OD  0SNAME«0YLM,DISP«SHR,UNIT=3330, 

//  VOL=(PRIVATE, RETAIN, , ,SER=D00012) 

//FT03F001  DD  DSNAME=DyDT,OISP=SHR,UNIT=3330,VOL=SER*D00012 
//FT04F001  DD  DDNAME=INPUT 

//FT05F001  DD  UNIT=(SYSDA,SEP=STEPLIB) ,V0L=(PRIVATE, RETAIN) , 

//  SPACE=(CYL,(2,2)) ,0CB=(RECFM*FB,LRECL=80,BLKSIZE=800) 

//FT06F001  DO  SYS0UT=A 

//FT07F001  DD  UNIT=SYSDA,V0L=REF=*.FT05F001, 

//  SPACE= ( CYL , ( 2 ,2 ) ) , DCB= ( RECFM=FB ,LRECL=80 ,BLKS I ZE=800 ) 

//FT08F001  DD  UNIT=SYSDA,V0L=REF=*.FT05F001 , 

//  SPACE= ( CYL , ( 2 , 2 ) ) , DCB= ( RECFM=FB ,LRECL=80 .BLKSI ZE=800) 

//FT09F001  DD  UNIT=(SYSOA,SEP=(STEPLIB,FT05F001)),VOL=(PRIVATE, RETAIN), 
//  SPACE= ( CYL , ( 1 , 1 ) ) ,DCB»( RECFM=VSB ,LRECL=1284 ,BLKSIZE=2572 ) 

//FTlOFOOl  00  UNIT=SYS0A,V0L=REF=*.FT05F001, 

//  SPACE= ( CYL , ( 1 , 1 ) ) .0CB= ( RECFM=VSB ,LRECL=1284 ,BLKSIZE=2572 ) 

//FTllFOOl  DO  UNIT=3330.V0L«SER=000012, 

//  SPACE= ( CYL , ( 2 , 2 ) ) , DCB= ( RECFM=FB ,LRECL=80 ,BLKS I ZE=800 ) 

//FT12F001  DD  UNIT=SYSDA,V0L=REF**.FT09F001, 

//  SPACE= ( CYL , ( 1 . 1 ) ) , DCB= ( RECFM=VSB , LRECL=1284 .BLKSI ZE=2572 ) 

//FT13F001  DD  UNIT=3330,V0L=SER=D00012, 

//  SPACE=(CYL,(2,2)) ,DCB=(RECFM=FB,LRECL=80,BLKSIZE*800) 

//FT14F001  DD  UNIT»SYSDA,V0L=REF=*.FT05F001, 

//  SPACE={CYL,(1,1)),DCB=(RECFM=VSB,LRECL=1284,BLKSIZE=2572) 

//FT15F001  DD  DUMMY 


//FT16F001  DD  UNIT=SYSDA,V0L=REF=*.FT09F001 , 

//  SPACE= ( CYL . ( 1 , 1 ) ) ,DCB= ( RECFM= VSB ,LRECL=1284 ,BLKSIZE=2572 ) 
//FT17F001  DD  UNIT=SYSDA,V0L=REF=*.FT09F001 , 

//  SPACE= ( CYL , ( 1 .1 ) ) ,DCB=( RECFM=VSB ,LRECL=1284 ,BLKSIZE=2572) 
//FT18F001  DD  UNIT=SYSDA,V0L=REF=*.FT09F001, 

//  SPACE= ( CYL , ( 1 , 1 ) ) , DCB= ( RECFM= VSB , LRECL= 1284 , BLKS IZE=2572 ) 
//FT19F001  DD  UNIT=SYSDA,V0L=REF=*.FT09F001 , 

//  SPACE=(CYL.(2,2)).DCB=(RECFM=VSB.LRECL=1284,BLKSIZE»2572) 
//FT20F001  DD  UNIT=SYSDA,VOL=REF=*.FT09F001 , 

//  SPACE= ( CYL , { 2 . 2 ) ) , DCB= ( RECFM*VSB ,LRECL=1284 ,BLKSIZE=2572 ) 
//FT21F001  DD  UNIT=SYSDA,V0L=REF=*.FT09F001, 

//  SPACE=( CYL ,(1.1)) ,DCB=( RECFM=FB .LRECL=80.BLKSIZE=80D) 
//FT22F001  DD  UNIT=SYSDA,V0L=REF=*.FT09F001 , 

//  SPACE= (CYL ,(1,1)) ,DCB=(RECFM=FB ,LRECL=80,BLKSIZE=800) 
//FT23F001  DD  UNIT=SYSDA,V0L=REF=*.FT09F001, 

//  SPACE= ( CYL , ( 1 . 1 ) ) ,DCB= ( RECFM=FB ,LRECL=80 ,BLKSIZE=800) 
//FT24F001  DD  UNIT=SYSDA.V0L=REF=*.FT09F001. 

//  SPACE= ( CYL . ( 2 ,2 ) ) , DCB= ( RECFM=FB ,LRECL=80 ,BLKSI ZE=800) 
//FT25F001  DD  UNIT=SYSDA,V0L=REF=*.FT09F001 , 

//  SPACE= ( CYL , ( 1 , 1 ) ) . DCB= ( RECFM=FB ,LRECL=80 ,BLKSIZE=800) 
//FT26F001  DD  UNIT=SYSDA,V0L=REF=*.FT09FD01 , 

//  SPACE= ( C YL , ( 2 , 2 ) ) . DCB= ( RECFM=  FB , LRECL=80 . BLKS I ZE=800 ) 
//FT27F001  DD  UNIT=SYSDA.V0L=REF=*.FT09F001, 

//  SPACE" ( CYL , ( 1 , 1 ) ) , DCB= ( RECFM=FB ,LRECL=8D ,BLKSI ZE»800) 
//FT28F001  DD  UNIT=SYSDA,V0L*REF=*.FT09F001 . 

//  SPACE" ( CYL , ( 1 , 1 ) ) , DCB" ( RECFM" FB , LRECL"80 , BL KS I Z E*800 ) 
//FT29F001  DD  UNIT"SYSDA,V0L"REF«*.FT09F001 , 

//  SPACE" (CYL , ( 1 , 1 ) ) , DCB" ( RECFM=FB ,LRECL=80 ,BLKSIZE=800 ) 
//FT30F001  DD  UNIT=SYSDA,VOL"REF=*.FT09F001, 

//  SPACE=(CYL,(1,1)) ,DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) 
//FT31F001  DD  UNIT=SYSDA,V0L=REF"*.FT05F001 , 

//  SPACE" ( CYL , ( 1 , 1 ) ) ,DCB= ( RECFM"FB ,LRECL=80 ,BLKSIZE=800) 
//FT32F001  DD  UNIT"SYSDA,V0L=REF=*.FT05F001 , 

//  SPACE=(CYL,(4,4)),DCB"(RECFM=VSB,LRECL=1284,BLKSIZE»2572) 
//  PEND 
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APPENDIX 

A2.05 

A2.06 

A2.07 

A2.08 

A2.09 

A2.10 


2  BASIC  FORTRAN  LISTING 


SUBROUTINE  NDT3 

Compute  NDT  Inventory  file 

SUBROUTINE  CALC CD 

Compute  Poisson's  Ratio,  and  aircraft  operational  weights 
SUBROUTINE  CALC (2) 

Longitudinal  and  transverse  wheel  probability  distribution 
SUBROUTINE  PAVDES 

Equivalent  single  type  aircraft  operation  and  unit  price 
of  pavement  components 

SUBROUTINE  FAM 

Forecast  of  aircraft  movement  for  equivalency  computation 
SUBROUTINE  HDES 

Limiting  stress  and  deflection  In  pavement  thickness  design 


A2.11 


SUBROUTINE  PCVCAL 
Compute  present  cash  value 


A2.0S  Subroutine  NDT3 


^lu:.  LC  (  to  J^JflSEPAV 

IJl  J))GO  1?  600 


10^  i-.2  =  2.*i>-!>.<c.*VALC('<P,li;)/S‘^VAL(  J) 

i;  b  If  i,inv.j  TO  520 

lot  :v-pFLi:sG(  n*.75 

107  oO  TJ  54' 

iC‘c'  5i7  i::,  5^.:  i=2,ivlLcSG 

U.'.  It(  »»Z.LT.  V.Zhf  1  ,i  )  )t;c’  rc  520 

111  ZV=(PFl:;SG(  n-PKL2S0(  I-l)  J^fWZ-WZHll,  1-1)  ) 

ill  +/(  wzmi  ,  I  )  -  <ZH(  1  ,  I-l  )  FFLLSGf  I-l  ) 


11^ 

C.,  7  3  54  (■ 

112 

52i. 

114 

L  PF  L 1  Sb  ( rjF L  'iSb )  ’•<  1 . 2  5 

115 

54: 

IK  J)  .  Co.  l.'Ji  .1S)GC  TD  550 

lit 

1  S=  J 

117 

I  1=--  IS2f  *.V+ J 

. 

Hi’  • 

H’AVf  il  S.;V<5L{  J) 

:  1  *: 

:5l.3(  I  l)«f  V 

12; 

;-:;iur?(  jj  -'■'v/  .6 

iZ? 

r...  T':-  5&'- 

55' 

1  3=  iowPAV-*  J 

12  ? 

I'PAVf  J)  =  r,;iVAL(  J) 

1 2  -7 

'  CUO(  J  )  -  3  v 

12  5 

1 1  =  is;jfAv<  J 

12 1 

r  AJPf  I  n=-'.f.*  ;V 

127 

■ji  . 

1!- (  c:  Ji..(  1  :  )  .■iT.PFLLSCf  1  ))00  T  j  57 

':<.2  S 

.%2A  =  a2H(  1  , 1  )  1  .25>My<ZH(  i  ,1  )-aZH(  1 , 

2)  ) 

1 2  S 

g;:-  7.3  ^9.i 

13  2 

5  7>. 

il'-  -31:,  I -2  ,,.1- LL-SG 

131 

I  r  (  (  i  S)  .GT.PFLi  55  :  I  )  )GU  TC  S3 

•V 
\  . 

132 

1,  2 A=-(  ,2'f(  1,  1  1 , 1-l  ))  #tLSOr  n 

!)•  PFLCSGf I-l)  ) 

13 : 

+  /  ( :’H  1  l-t’FLlS  .(  I-l  »  )  +  '.l2H(  1,1- 

1) 

13 

15  so: 

1  •  » 

i  ^ 

'>  h; 

i  Ti  ;L' 

1-;  c 

.. ..  » /  1 1  (  1  f  1 W  ».  0  )  •  •  .5  (  Vv/  M  (  1 1 4\  L 

SG-:  )-WZH(l  ,'IFLESG) ) 

1  *  ■  1 

‘ »  t 

.  i’.U  (  :  S  )  -  VAI  (  J  A//.-.ZA 

) 

L  C  17 

V  ...,1  i  .ilJ.. 
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A2.06  Subroutine  CALC(l) 


123 

124 

125 
l?t 
127 
12  8 
IZ'j 
I3r, 
131 
i: :: 
13  7. 
IZ'i 
i  3  8 
13  6 
13  7 
138 
1?<1 
14(' 


143 
1  4  4 
148 
146 
14  7 

14  i? 
141 
lf>! 
i  81 
1  32 
i  7’  - 

154 
1  ‘3  5 

15  6 
13  7 
15;- 

155 

16  ( 
16  1 
16' 
1(.2 
1  o4 
1(  3 
1  (.6 
1  O  / 
16  :: 
1  6 ' 


C  ♦**  Af>Y 

APY(I  >=0.  .  . . . 

rM=fr^-i'-r.L  ( I ) 

DO  4^  )  J  =  li(il 

1F(.-:I  I  ,  J1  .NE.U.IGCj  TG42u 

APY (I )=AWY( I ) +:x?(“(WHucLY( I , J ) / ( 12 . *450. J )**2/2. ) 

420  CCtiTl  lUi 

00  43i/  J=l,3 
r  RAIMJS  r-ACTC:< 

R3UI  j3(  1,  J)=^6(JRT{.3132(j997i:(.<'0P^GT(Lf  J)*A'IRC(It5)/AIRC(  1,6)  ) 

fact.6;(  !,  J)=;'  .  ...  . .  . . 

Ti  =  t 3. 

T2=( 13./4e. 

Cl;  44  7  K=1,N 

WX-  SJilT  (  ABS(  r<Hf-r  Lx<  I  ,K)**2)  ♦A8S(  rtHjlLY  (  I  ,K)'i'*2)  ) 

IM  *,<  .ilJ.O.  )G0  TO  420 
TACTOa ( 1 , J) =FA2TCR( I , J) *1 . 

GU  TO  447 

4  20  YK=  ( 10  1  US  ( I ,  J)/iiX  ) 

^.K-l.  57io*(l.+.2  5*YK<-Ti*YK**2-*-T2*YK**2> 

►•,i:=1.5  7.'.l*(  1.-.2  5vYK-T1*jK**2/3.-T2*YK**3/5.  ) 

P  1 F  M=  2.  /3 . 1  41  59*WX/KAD  I  LS  ( I ,  J  )  *  ( ir.  p-  ( 1-Y  K )  *WX) 
f  ACTOR  (I  ,  J)=f  ACT:.K(  I,J)-*PIRM 
4  4C  CoAli  102 
437.'  Cl3‘.  T I  ■'•OJ” 

A>’V  (I  )^APY(U*.U.*15  7*RADIUS(I,2)/12. 

4<::C  olMIi'J" 

10=  1  }..G :( 1 ) 

kADIOj  c;  ,l  )  =  sui2f  (  .3133G9S7l-0*DJPWGl  (1  )*AIRC(  ID,  5) /A IRC  (  ID,6)  ) 
C  *'■!•'*  APX 

CO  560  K=  I  ,  NBAl'll) 

I  3P/;=.;Typ-:  *  (K-1  ) 
c:.  55  ■  LA  =  1  ,OTYP- 
L  =  *i  A.'XHA 
00  5‘+  T  '■i=l  ,  TOPwGT 

1  =  1  AI  )  . .  '  '  ”  . 

If  (  1.L2.0  TOC  TG  5  40 
fJv;=N.-,OL  OL  (  I  ) 

O.  53;  J=1,2 
APXf I  ,  J,L  1=0. 

'■0  52  3=1,  MV 

Al’X  J,L)  =  1PX(  I,  J,  L)  ♦rXP!-)  0.81  6  7* 

1  I  ,tN)/(’2.*iiMMU(K,LA))  ) 

:'/,(■  ,  J  ,L  )  =  PX(  I ,  J,  L  )’^2.2fi{<*•.'^r  mOI  US  I  1 ,  J  1/  ( 1  2  .vSAN  C(  K,  LA)  ) 
r .  1  I  i  .1)3 
■'iv  i  I.  3  I  I ' ."U . 


' 
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A2.07  Subroutine  CALC (2) 


C  PAV,.  CLDf-  LAYT 

DC  26  J  I  =  lf.vPAVL 

ziD  AYr;'.(  n 

DD  25!'i  J  =  lfN 
O’,  r.i.  K=1,M.AY 

IFCLAYtKC I,J,l).wi.MLAY(K»l))GG  TC  240 
U  (L  AY  t -U  I  .  J,  2)  ..JZ.N.LAY  (K,2I  )GC  TO  240 
ILAY'C.Hd  ,  J)=K 

IF(  rv'.AK  I  ,  J  )  .LT.L.  JZVAL  (I  ,  J )  =VALAY(  K,  1 ) 

IKPJiSd  ,  J)  .  LT  ,f‘01  IPCISd,  J)  =  .6i>-.08*ALCGlC‘(EVALd\j)  ) 

GO  Ttj  2  50 
24 j  CjMTIMUc 
C  CKKCR 

2bO  cchTiou:- 
2o.'  Cr.XTI'i’Jc: 

C  =:==!'«  Alf-  C  CCJ^j  TOW  . . 

U  .1  25  5  1  ■=  1 » r,'A  I KC 
!;.LKn=o 
IKi-NG'd  I  )  ='1 
2  55  Cd!Tl:!U2 

n(,  27 >■  K=1,AvP.^GT 

HlAl.!.(^d  . 

If  (  I.LC.MGC  TG  2  70 
iisA.IO'in  =  l 

IPd.;  (i<,l  If'LAriMGL  to  261 

LkALT,  dK.l  1,1  ) 

L'sAiV5:(r'M2J=  'OANu(  1,2) 

t  c  j  D‘ .  Ti  /.  J  -  1  f  4  f 

If  (  Li; i,.  (  K  ,  1  )  .0,;  J)  )G0  TO  2o2 

l.-.A  !v...d  )  =  J 
CL  Ti:  wvl 
262  CLi-.d.i!.i: 

262  I  a  d  i  )=1 

1F(L  ••.LflK,  d  .r-vJ.:0\Lb(2)  )1  ALPd  I  =2  . .  .  ' 

l=IALI(i) 

I^A  1  ) 

IF  (I.A^i  (K,  1 )  .  EC.  I  JLA.;k. /  ;C.T..w(  J,  1 ,  L)  .GT.  1. 

♦  .ANG.f,  t  .'CT  <K,1  )  .IT.J  ,  )l  Al  F-(K,1  )=HALFd  ) 

1  r ( T'  .. { j,  I , I )  .I  T .  1 . .  A.\'L..f  Pi;nT  i k , i  j .  lt.  i . ) opv.ct  (k,  i)  =airc (  i  , i ) 

U  <  ■  V  ..(.7  I  K,  1  I  .LT  .i  .  f  ;P'.  Gi  (K,  i  )  =  TC!.,C  J,  1  ,  LI 

Iff  .Id  (  K.Z)  .17.  i.  )C,Pv..':7(K,2l  =  (  AIP.C  I  I  ,2)-AlRC(  I,  3)  ) 

♦  d  C.  ,1)-AL-.L(  1,3)  )/(Air.2d,  1  )-AIKCd,3)  IfAIRCI  1,3) 

I  FC.i-  •.Od  K,--  )  .LI  .1  .  IL.PWGT  (K,3)  =  ). .  f;+L’P.<GT  (  K ,  2  ) 

27  '  C.OTI  ;U.7 


A2.08  Subroutine  PAVDES 


;  350 
351 
35^ 

353 

354 

355 

356 

357 
35  8 

35  5 

36  C 

361 

362 

363 

364 

365 
36  6 

367 

368 
365 

370 

371 

372 

373 

374 

375 

3  76 

383 

384 

38  5 

386 

387 
30  8 
335 
iHO 
391 

39  2 

393 

394 

395 

396 

397 
"398 

399 

400 

401 
40? 
'1 0  3 

4  04 


1317  ELAY=ZVAHKM,  IHSA)  _ _ _ : - 

LB0T=EVAL ( KM, ML) 

1318  CC.NST  A=VALC(K3,2J*SQP.T  (tLAy)*VALC(KB,3)*(  l.-VALC(KB,4)] 

Dll  133C  IA=1,N0PWGT  -  _ -* - 

l^^lAMCdA) 

IFl I.LE.O )GD  TO  1330 

DC  1320  J  =  1  ,3  _ _ _  _ _  _ _ _ 

Ar<S(  I  ,  J  )  =  -(ABS(STRFO(KAA)  )-ABS  (STRFAM(  I,J)  >  )  /CONSTA 
1320  CLNTIMUE 

133C  CCN7IMUE _ _  . . . . 1 _ 

Al'JS  (20,1  )  =0. 

DLl  13  50  IA=1,N0PW3T 

I^IAIRCIIA)  _  _  _ _ -  - _ _ _ 

IF( I.LE.OICC  TO  1350 
DO  1340  J=l,3 

FACTJK(  1  ,  J)  =aZFAM(  I  ,  J)/i«Zw{  I,  J)  _ _ 

PRESS-AI9  C(  I  ,6)<^FACT0R(  I*  J) 

'aD=2.  =!‘Pi<L  Sr>’:=KADIUS(  I ,  J  ) ’'•VALC  (  Kh,  1  0) /EBOT 

D4=1./VALC(KD,8) . . .  . . . . . . . . 

OLOEF  =  V-J>i=*(  l.-D4)*WZFAM  (1  ,  J  )  <^*04*  VALC  (  KB,  7 »  ♦*  (-D4  ) 

AND ( 1 , J)=DGDcF 

1340  CONTriUE  .  .  . .  .  _ _  _ _ _ 

13  50  CCNTiriUE 

FACTGK(20,l)=WZFD(KAA)/l\ZUFDiKAA)  . 

PkESS=AIRC( ID,6J*FACTCk(20,1)  _  _ _ _ 

bC  =  2.'i=PH2SS<'KADIUS(2  0,l  )*VALC1KB,  10)/EBGT 
A(90(2  0,  i  1.-04)«WZF0(KAA)*<'D4*VALC(KD,7)**(-D4) 

DO  1376  I=.:1,MPAVHD  ..  _ _ _ 

Ir  (  IP,WL  (  1  )  .r.O.  ICDGO  TC  1374 
IK  IPAVL  (  n  .GT.ICL  JGC  TC  1372 

REVjI  id  9  .  .  - . .  .  .  .  . . . .  .  - - - 

ICL  =0 

1372  Ii.L  =  ICL*-l 

IF(  IFA.MDSC  ICL  ,1  )  .LE.OIGC  TO  1372  . . . . 

RlA  J(9)  (  (A;JS(  IA,  J)  ,AMD(  lA ,  J  ) ,  F  ACT  0,U  1  A ,  J »  ,  I  A=  1 , 20  ) ,  J*  1 , 3  ) 
I(-(  IPAVK  1)  .NE.  ICL  )GC  TC  1372 
1374  HKITr ( 12) ( (Akbl lA.JJ ,ANC( lA.JJ  .FACTCkllA.J) , I A*1 • 20 1 , J*1 ,3) 
1376  CONTINUE 

F.ilDFlLE  12 

REKi'IJ  12  . .  .  . . . . . . 

K  L  I D  ') 
pr-v. no  Lia 

rjSLP--Fi:iA(6}  . - . 

ASC;'.=  ( f- 1  MA  (  4  )  +r  I  .'iA(  3)  -r  IN  A(  2)  )  -F  I  NA  (  2  )  <<  (  F  I NA  (  3  )  ♦F  I N A( 4)  J 
l'CVA1C=rLC'AT(‘iSL2-l  .OLOAT  (NSLP-2)*ASCM/2.« 

+  (  1  . +i  LCAT  (kSL!'-:  1  •■^ASCM/3.  )  »  _  . 

,M  f-  liV  -  1.  -  1  .  /  (  1  FIKA(  1  )  ) 

V1C(,^  I .  -  (  r  I  J-2.  )'>  (FI.\A(2  )  -  A  IRBV  )/2.* 

M  1.  -  Ii  i:j  U5)-3.)<'f  INA(2)/3.)  . . .  _ 


A2.09  Subroutine  FAM 

s»o  o-.t  -iLS  j=ii;i 

f)!  1 1  ,  j )/ 1  j./'  KLF/  (i.+ui  (LCCt  ityp)  )) ) 

9  2  4 IS  f i.'uT:.\u: 

93  0:>  420  J=  1,3 

9  4  L  Cur.ST=2.ia 

95  C 

96  <;  ui)=50.vT  {:;'l  {  LLC,  ITYP  J/(l  .  +  DI  ILLC  ,  I  TYP)  )  ) 

97  C  VV=00>JV  :L(  LOC  ,ITyP}+6>j.*< 

9il  C  XX=^B.6=f-l'.'rTu.UI,JWXM6t  !>/K',uIU5l  I,  J) 

99  C  AK=-  CLi:iST/ VV*-))  (  LDC,  ITYP  J/SO'^T  (  A:RC(  I  ,7  )  )  . . 

ir.J  C  AAK  =  iO  .  (  VALCi  KP,5)=t>'LL6i'-  (  AK/  V A LC  I  KP  »  6  )  )  ) 

IC'l  C  Di!=:2.>‘'.AK-!'S.:RT{XA*RA91l.S(  I,  J  )/12  ,)  _ 

102  L  A’a;B(  I,J)=(D.’>C1)/A;JD(  I  ,J) 

11.3  AriDAl  I ,  t  ^NUl  i  ,  J)-AMD(  20,  1)  )/AM0(  I,  J)  ) 

104  4  2*'  C  t-  N  T  i  I  *  Ij  .z 

105  t  iJ  {  KPAV(:<P).L5.1  ).<RITF,(6,4(  lOI  (  LOG,  IT  Y?  J ,  V£L(  LGt ,  ITYP  ) , 

iri.  t  +(P,*GTf*r.(  I  ,  J)  ,  J=J,,3),XNZ(1  ),  (RADIUSl  J>  ,J=1,3),AIRC(I,7), 

1.7  t  ♦VAL  CIKP  ,5  }  ,  VALC(ilP,61 

Its  C  4*  PCKV.IK  lX,l?rii  .6) 

i;.'9  425  C'j'''ri,'!u2 

Ilf  f.  XX=  B .  5  vr  aC  TLk  ( 2:  ,  1 )  +XM/.  ilV)  /f  M'  105(20,1) 

111  t  AK=^C,.Jf'JST/VV''':>I(L0C,ITYP)/52RT(Air.ClIL,7)) 

111  C.  AAr>i  (V'ALC(KP,5)«ALCC10(AK/VALC  (KP,6)  )  ) 

1:3'  C  12  .  4,1. K  •>  5<,!1T  ( .KX« RA  j  I  tS  ( 2 ♦  I  )  /  i  2 ,  ) 

114  C  A:,LB(  2C,i  (.2,M”Ci  )/Af  0(  20,1 ) 

11:  /.•Il'Al.TC,!  )=1. 

116  (,  lP(KP*'.V(KP).Lr.l) 

117  (  +V.nIT2{6,20)  (  (  ANOl  I,  J) ,  J  =  l,3),  1=1,  12) 

11  8  L  lF(KP,'.v(Rr>.L£.i  ) 

115  C  +.^'1*2(6, :MAi!C(2a,l) 

12c  C  30  rC f MaT ( iX, 1 ?62i3.5) 

121  0:  6'.!  l4=l,f*ST! 

12  2  G  44.'  IA  =  1,1GPW0T 

121'  C  1--1/MKC(IAI 

124  C  ir(  l.Lr.O  )GC  TJ  '»4C 

12  5  G  J!  J=l,3 

12  6  G  A  ,UA(  T 

127  (  IM/'i I'm.D.IA'.O.COODGC;  TC  430 

12  6'  I  A.,L-A(  i  ,  J)siO.^*(l  4.\i;o(2i;,  1)-AND3(  I  ,J)  > 

'  C  ^  I 

i  2  .•  C  <  =  L .  .•.(:(  .*•  T  A  ( 1'  ,  1 A  ,  J )  A  f> X  ( I ,  J  ,  1 .4 P X  )  1  /  .V '  D  [i  (  20 ,  1 )  ) 

I'l  L  4:-:  G-  :’l  .01 

13  2  C  4  4i  C  V  V 1 1'iO 

133  I'  A.:.i.:5 

13  4  4  5.*  .1  =  1,: 

23-  ‘‘Iv,  3  -  ::'J  ,(  J)  =:•. 

13  6  ■'  -W  *  =  ivPV.GT 

13  7,  i  -  i  .  i  •  L  (  1  ^  ) 

1 3  i'  i  !  (  i  ,  1 1*.  #  )  .1 .  I  *.  4  I., 

1  V  i’  '  •  X '  J  =  1  ,  .1 

)40  •  ;5(  i  ,  J  )*- ,"),!(  K,r.,  J)<-A.\5A(  I  ,  J)  *\t'X(  i  ♦  J,  1  IPX  ) 

( 
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A2.09  Subroutine  FA.M  (cont'd) 


1  -t  1 

SFiOM  lV  ( J)  =S 

1  - 

4  01  ci.fnujus 

I'l.". 

j-b 

I'.A 

l.CZtl  .  Jl^O. 

lA  ^ 

II-(  r..j.C.T.:  ) 

1A6 

+  *A1'Y(  1  ) 

i‘.  7 

I  f  1  fj  UGT.  :  1 

14^ 

+  Ar'x  ( 1 ,  J.  i;.p 

I'fS 

4  7C  iirtniiu: 

1  b 

AAfyS(  ‘<.1 !.  (.  ) 

Ibl 

L)'!  4-Jl*  J=lf 

lb'- 

A,  r:S(K,Li'L ) 

15:^ 

4  fj.  V-'.  i i  1 1  <u : 

IbA 

AAi.S(fviLC  C  ) 

Ibb 

c  A'.t;u 

lb<. 

D.  45  J  J  =  l, 

ib  / 

450  L):C'i'!L7(  J)  =0 

15  c 

ij.  51'.  !A=1 

?  b5 

1  =  IAI.<C(IA) 

itw 

ir(  I  .l.L  .'’  )o 

16i 

DC  b'.  •;  j=ii 

16:  . 

cGJd  ,  J)-0. 

I6i 

Al.f)D=  <. 

io4 

!  r  ( AT  '-1  { ,  I 

US 

+  11  r:;'= 

I6t 

1  ‘  (  7L  '!:.GT  . 

16  V 

1  f-  ( .  w  K  -v  f  1 

166 

+  [,..1(1  ,  J)  =  (/- 

loS. 

•  +’>'  /.I  i'l  (  .rC  f  U  »  . 

17 

( J)  =c 

17] 

SCO  mv  i/v.i: 

i/'-' 

.j  =  :. 

17. 

■  WU  ( i  f  J  )  -  C 

]  7  -. 

A'..i!C=  ). 

17  5 

I H  ( •  .  fi  T  •  « 

i  7  6 

+  .AL^:L--^  AL--G]  i. 

17  7 

if  (  AL 

17t3 

11  ( i,.<  •  0  1  •  <•  < 

1 7  5 

+  l:.'i)  (I ,  J)  ^(  ■ 

la 

4  >*7  1  I  A  f » 

in 

It  ( .5  •  C)  T  • 

Ifi:^ 

01.  ri'ii.NDr 

ii'? 

A.l' '  IM  i\  f  L  -  C 

iH  b'i  1-1 

lab 

M  "V  f  1-  -  ( 

bC'i.  C, i.i.T I  i'lLl  ; 

a.  f 

A.M  ('. ( i\  f  uC  C 

,I4PX) 

•lAPX) 
.  J)* 
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A2.10  Subroutine  HDES 


51  C  STRESS  LIMIT 

52  t>;L  =  r\LAY£RIKM)  - _ _ _ _ _ _ 

53  i:Ll=rJL-l 

54  DO  190  J=1,NL1 

55-  _ STKLIK.LQCi J)=SURT(£VAL (KM.JJ ) *  1 1 .-VALC I KP ,31* _ 

56  +ALaG10 lAANSIKtLCC) ) )/{ 1 .+01 ILOC, ITYP) ) 

57  STlU.{K«LOCt  J)  =STRL{K,LCC,  J)*VALC(  KP,2) 

58  CVERSF=VALC( KP,1J  _ _ 

59  If-(  LOC.GT  .1  )  JVERSF  =  VALC  (KP,9) 

6G  STRL(K,LQC.  J)=STr<L(K,LCCtJ)*0VERSF*(l.-VALCIKP,4J  ) 

61  190  CONTI  'IUE  .  _ _ _ _ _ _ _ _ _ 

02  IF( KN.LE.OIGG  TC  197 

6  i  NLA=NPSLAY  I  K(J) 

64  NLA1=NLA-1  .  .  .  _ _  _ _ _ _ 

65  DU  195  Jl  =  lt.‘JLAl 

65  J  =  JH-NL1 

6/  STRL(K,LOC, J) =SQKI ( PSLE (KN , J1 ) )*( l.-VALC( KP ,3  )♦ . 

6  8  +ALfJG10  (AAMS  (K,LOC)  1  )  /  ( 1  .fOI  ILOC,  I  TYP  )  ) 

69  STRLI.KtLOC,  J)=STRL(  K,  LOG,  J)  *VALC(  KP,2) 

7C  CVERSF=VALC{K?,1J  .  _ _ _ _ _ _ _ 

71  IF (L0C.GT,1)UVERSF=VALC{KP,9) 

72  STRLIK.LUC, J} =STRL{K,LGC,J)*0VERSFt(l.-VALC<KP,4) ) 

73  195  CCNIIMUc  ..  _  . _ _ _ _ _ _ _ _ _ _ 

74  C  WZL 

75  197  CCNST=2.28 

76  Cl=^.01  . . . . .  . . . . 

7  7  XK-^n.  6-f‘FACTCR  120,  U+XMZ  (ID)/RAD1  J  SI  20,1) 

7  8  PRLSS=AIRCI I D ,6 ) *FACTGR  120 , 1 ) 

79  DD=SjRTIDIlLUC,ITYP)/Il.<-Oi  ILCC,1  TYP))  ) . . . 

8C  VV=Cl)<=V£LI  LCC,  IT  Y  P )  •*•60  .  *  1 1 . -DD ) 

81  AK=^CC)NSr/VV*DII  L0C,ITYP)/SQRTIA1RC(  ID,7)) 

82  C  wr.lTEI6,20)KP,AK,VALCIKP,6)  _ _ _  _ 

83  C  20  FURMATIIX, I5,2F10,4) 

8  4  AAK  =  10.«*  I  VALC I  KP,  5)  <-'ALCG10I  AK/VALC  UP  ,6)  )  ) 

8  5  OiJ=12  .*AAK«S0RTIXX*RADILSt20,  1)/.12.) _ _ _ _ _ 

86  EliL7  =  tVALlKM,NL) 

87  IFIKN.GT.OEL  nT  =  PSLEUN,NLA) 

88  f.O  2.  *?RESS'<-.;A0I  JSI  20,  1  )*VALC  I  K.P,  10)/EB0T . . 

8  9  VA  L  C  U;  P ,  7  )  <  W  0*=)'  1 1 »  -  V  AL C  UP  ,  8  )  ) 

9  0  I  r-I  AA’jDIK.LLC  )  .LE.IO.  )  .vZLU,LCC)=  IDN-Cl  )«*VALCUP,8) 

91  IF! AA\D(K,LCC ) .GT ,10. )  .  . . 

92  ♦lf-ZLl;s,LUC)  =  I  in.M-Cl)/AL[iG10IAAN0IK,LUC)  )  )  >!'*VALC(  KP  ,8  ) 

93  i)4=l./VALCI  KP,0) 

94  DCOEF=VALC  UP, 7)**I-U4)  .  .  _ _ 

95  IFINXSL.LE.l ) WZL I K,L0C)= IDN-Cl) 

96  C  V**  Wi  A-ro  03  T:j  b£  CALCULATED  LATER 

97  C  <'•'=:■•  SMCUL.D  USE  ESUP  .  .  . 
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169 
17C 
171 
1/2 
1  73 
17^ 

175 

176 

177 
17U 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 
139 
190 

19  1 

192 

193 

194 

195 

196 

197 

198 

199 
20C 
201 
202 

20  3 

204 

205 

206 

207 

208 
209 
21C 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220  - 


360  1ST  =  IST-1 - - - -  - - - - - 

370  Il=IEST  +  ir;S 
ESUP(  K)  =  ESUii(  11) 

NL=NLAYER{KM)  .  . . . . . 

NL1-.>(L-1 

I*Rt-SS  =  AIP  C(  IO,6)*FACTGR(20,1) 

WU  =  2.*PRESS*RAD1US(20,1)*VALC(KP, 10)/ESUP(KJ.  -  .  - 
D3=VALC(KP, 7) l.-VALC( KP ,8 ) I 
U4=1./VALC(KP,8) 

LQC2=2  .  - . - . . . . 

IE<;iXSL.Lt.l)G0  TfJ  501 
DO  373  LUC=1,LUC2 

V:ZLlM(K,L0C)  =  D3*WZLnST»L0C)  _ . . - 

TANOI K,LOC)=AANO( IST.LOC) 

T^\S(  K.LOC)  =AANS(  IST.LOC) 

DC  371  j=i,r:Li  . . - _ _ 

STRL1M(K,LQC,  J)=STRL(IST,L'0C.-‘ 

371  CCKTI:^!■JE 

1F(KN.LE.O)GO  TO  373 . _ _ _  _ _ _ 

00  37  2  Jl  =  l,fJLAl 
J=JH-NL1 

.  S 1 K L I  M  ( K ,  LOG  t  J)  TR L  J  I S I ,  LOC«  J ) .  .  _ _ _ _ _ 

372  CCKTi.NUE 

373  CCMIiMUE 

L  ***  INIERPCLATE  EVALUc  _ _ - _ _  _  _ 

IF(ESU8( I  1 ).GT.£SUBG( 1 )  )G0  TO  375 
C  ERROR 

3  75  Ut  330  1  =  2. NE  . . . .  _ _ _ _ 

IK  ESJBl  1 1  )  .Cq.bSiJBGl  I  )  )G0  TO  390 
!F(ESJB(in.LT.ESi)BG(n  )G0  TO  410 

3  80  CG.\T1,‘>1U6  . .  . . . . . 

C  Ff.RCR 

I=NE 

GO  TO  410  . .  . . . .  ... 

390  n>-  40 J  .N=1,NHG 
i-.Z(  M  =WZH(N,  I  ) 

5Tfl{N)=STRH(N.I.) _ _ _ _  _  _ _ _ 

400  CCNTINUE 
Gu  Ti)  422 

410  DO  42  D  N=1,.NHG  _ _ _ 

h/.  (ri)  =  (  .tZHlfJ,  n-./ZH(N,  1-1  ))*(ESUO  (1  1)-ES'JBG(  I-l)  ) 

+  /(FSOBG(  I  )-ESUBG(  I-l)  )  +  VtZhC  N.  I  - 1 ) 

SIR  IvJ )  =  (  S 1  Ril  t M ,  I ) -SI  K)!  I  R,  I-l )  )«  I E SOU  1 1 1  )-ESUBGI  I-l ).) _ 

+  /(L’SJ3G(1  )-ESUOG(  I-l )  )  +  STRH(N.  I-l  ) 

420  CONTINUE 

422  DO  500  J=l,2  . 

li  (  rtZLl.U  K,  J)  .LT.rtZI  1)  ICO  TO  425 
Hi)ES«K,  J)=tiVAL(Ky.,l  ) 

GO  TU  460  . .  _  ._  . 

4  25  DO  43  0  'J  =  2.f;9G 

1F(  ,.71.1  1(  K,  J)  .GE.WZ(N)  )G0  TO  450 
430  Cn.NTl.'JUE  -. 
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i2\  H0ES(K«J)«MVAL(KM,2)4>HVAL(KM,3)/2. 

22?.  ICRITIK#  J)a-l 

222  - -  CCi  la  500  - -  - - - - - 

2?A  450  H0ESU.J)«(HCRI0(KM,N)-hGRI0(KM*N-l  ))«(W2LIH(K«  J)-WZ(>V1)  ) 

225  ♦/(WZ(N>-tNZ(N-in«KCKIO(KM»N>n 

22L  .  460  IH=IPAVHS(KI)  - - - - - 

227  lF(KN.GT.Onil«lll»NLl 

226  1F(STRLIM(K,J.IHI.LT.STPC1) too  TO  465 

225  .  H«HVAL(K»«1) - - - - - - 

23C  GC  TO  430 

231  465  00  470  r4>2tNHC 

232  . -  -lHISTRLIfl(K,J,IHJ«GE.SIRCN)  JGD  TO -475 _ _ 

233  470  CCIiTiNUE 

234  HOFS(KtJ)  «HVAL(K'4«2)«HVAt(KHt3)/2. 

235  . -  ltRlTU#JJ»l  — . - - - - - - - 

236  /  GO  TO  500 

23  7  475  H«(HJK10(Ki'1«N)-H3RI0IKM»N-1>)*(STRLIM(K»J«1H)-STR(N-1I  ) 

238  ♦/lSTrUN)-STR(N-lJl^HGRlCCK4,M“l) _ _ _ _ _ 

235  480  ICR1T{K,JI>-1 

240  1F(HJES(K*J).GT.H)GC  TO  500 

241  . .HO£S(K.J)*H  - : . . . 

242  ICRIT(K,J)«1 

243  500  CCNT.I 'JUS 

244  GO  TO  510  _ _ _ _ _  .  _ _ _ — 

245  501  IPslPFLill) 

246  IF<  ESJF(K1  .CT.PFLESGU  HGO  TO  502 

247  W2(  IP.ll^.aS^lttZHUP.D-WZHdP.Z)) 

248  $TR(IP)«STRH|  lP«l}«^.25«(STRH(IPtn-STRH(  IP.Zn 

245  GO  TO  504 

25C  502  DO  503  i«2tNFLES3. 

251  IF(G3UP(K).GT.PFLeS6(n  »G0  TO  503 

252  W2(lP)»(lr,ZM(  IP,I»-WZHn?,I-l))<'(ESJ?(K)-PFLESC(I-l)  ) 

253  ♦/(I'FLtSCJ  1  )-PFitSG(  I-l  I  dWZHlIP,J-l  )  - _ _ _ . 

254  STKCIP )*( STKH( IP, I )-STRH( IP, I-l ) ) *{ ESUP (K) -PFLESG (I -I » ) 

255  ♦/(PFLESG(  n-PFLESG(  I-l  )  l^STRMIIP,  I-l) 

256  GL  TO  504  . . .  .  . .  .  . . . . 

25  7  503  COKTl.JUt 

258  XZ(  IP  )  =  \'ZH(  IP,NFLcSG)-.25*(WZH{  IP  ,N  FLESG-1 ) -WZH(  I  P,  MFLESG) ) 

-25S  -  STP.(IPJ*=STiUl(  IP,Wr-LESG)-.25*(STRH(IP,NFL5SG-l)-STRH(IP,NFL£SG)] 

260  C  504  0C0£F*ir.0**n.-04)’fViZI  IP)**D4*VALC  IKP,7)<‘*1-D4) 

261  5C4  OCt?EF»FSU8nn/(VAl.CIKP,7)*EPAV(  I  1)  ) 

262  DCOEF»w‘J«'lO.**iO4*ALCG10IDCD£F)  ) _ _ _ _ _  - 

263  TANO(K,n«AANC<  IST.l) 

264  C  TA.\D{iN,2)*10.**lV.ZinST,ll/0J0fcF) 

265  TA!JD<K,2)*IKZL(IST,1)/0C0EF)  .  _ _ _ _ 

266  IF(  TAi\0IK,2).GT.30.  )TA6XIK,2)»30. 

267  TA'JCU,2)  *l0.**TAN0tK,2) 

?6P  TAP;S(X,H  t'AA.jSnST,!) _  _ _ _ _ _ _ 

26‘5  lUddSdP) 

2  7C  SIOV^\/ALl.  IKF  ,  l)«(l  .-VALCIKP  ,4)  )  6V  ALCIKP,  2)*SQP^T^ E  VALl  IP,  IH)  ) 

.*’71  SiGY=SMY/(  ).♦□!(  1,ITYP)»  . 

272  C  dU.'»<’((S!r.Y-SIKlIP)  )  /  I V  ALC  (  KP  ,  3  )  *S  ICY  )  ) 

270  1  APiiSC  K,2)  »(  IS  IGY-STl.  1 1 P  ) )  /  I  VAl  C  I  K  P,  3  )  ♦$  IGY)  ) 

274  _  TANS!  K.,J»  =10. •♦TA'ISIK, 2)  .  . 

275  510  CL.dIf,Ufi 
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A2.11  Subroutine  PCVCAL 


:.>•  M  »  i.i.  c-ii? 

•  ^  "•  1  .’lASTl 

I  I  ‘ I  i  '  A I*  1  j  ( i'  l  )  _  __ 

li  (i.-i.l.  AY^u^AL(:<^»l‘lSM  . .  . 

II  (K  i.;.’  .  t)  lL  \V  =  i' iLt  (i<i4f  lilSM 

jr(.<  .OJMSA-U  iSA  +  KLAYl-P  (i-;  U-l 

l.l=-  IMiC^  !1 
I  L-  n.  *Yf  •  (  K  M) 

Ak,(..(  f.  J  -i,!  l+hL.eSiK.UOC  (  U  )  _  _ 

J'.  ST  i^VALf  (  ,2  J-i(JI<T(  £L.»V)  1  .-VAL  C(  k'{>  ,.VT>  . . . 

TST  (  =  Jl.'.T  U-VALC(i<.tJ,'i)S^AL  3G10(TA‘!S(K,LGC)  )  ) 

ovt:  KP,u 

(L  1^.  .T.  UuVA' ir  =  VALC(i<P'.'T)  . . . -  .  . .  . . .  • 

A  V.  = 'a  C  (  i'V  ,  A  )  »:■ ' J V  £  S  <"  *  1 1 L  S  T  R-  .-c  C  S  7  k )  /  I  U  L  S  T  R  -  S  T  R  L I  ( K  ,  L  OC  ,  I  H  S  A ) 
) 

A’'iC(<,L.Cl=-iiC^:'iJL(lLi  . . .  . .  . 

P (  V  ( ,<  ,  I  A  ^  ^  A .'i C  (  < ,  L  Gc  )  C V  A  -T  C  ♦  A i  LC  ( iC  ,  L  fX  )  *  PC  V  1 C  C 

,?  J.)  LvA  1  I  ;J- 

'i  ;)  <IIA  I!:  . . - . . . 

n  ( I  o  (.«( 1 '.r,'  L  ,.:j  .^T  .  T.ucJ'iG  (u  i20 

•\r(,  .'(  1  J^S’.V  I  :  ,l) 

■."C  .(  -1)  =.-'GV(  1  ,k)  ■  ■  .  .  ■■ 

(AG  T:.  'j  yj 

H.M  J'"  A  JO  L  ,  2 

■’C  v{  L  IjC  >  =■  >.  .  .  .  - . . 

i.  ;  r'^  l.  AASTi 

f  .X  Y I  LI  !, )  ::  A A  V 1 1. 0  C )  •»■  PC  V  IK,  L  -  C  )*•(->  S7  l)-ASTA(K  )  ) _ ^ _ 

3  bo  V.  ■  #ni  1  I  ■  J  0 

A  r’{.  7  (  L  .X )  =  AO f '/  (  UJC )  /  1  AS TA  { ii A  >T  )  -A ST  A ( 1  )  ) 

AOO  LGI.rii'l'Jfi 


